home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8612.d64
/
gc hardcopy
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
59 lines
0 IFL=0THEN LET L=1:LOAD"Q9",8,1
1 CLR:GOSUB100:OPEN4,4,0:PRINT#4,CHR$(10)CHR$(13)CHR$(13);
2 CLOSE4
3 A$=C$
4 POKE56576,0:POKE53265,59:POKE53272,56
5 POKE53281,15:POKE53280,15
20 SYS 49155,160,"H?."+A$+" 1"
21 SYS 49155,224,"H?."+A$+" 2"
22 SYS 49152
30 SYS 49155,160,"H?."+A$+" 3"
31 SYS 49155,224,"H?."+A$+" 4"
32 SYS 49152:IFBB=4THEN GOTO 70
40 SYS 49155,160,"HZ."+A$+" 5"
41 SYS 49155,224,"HZ."+A$+" 6"
42 SYS 49152
50 SYS 49155,160,"HZ."+A$+" 7"
51 SYS 49155,224,"HZ."+A$+" 8"
52 SYS 49152
60 SYS 49155,160,"HZ."+A$+" 9"
61 SYS 49155,224,"HZ."+A$+" 10"
62 SYS 49152
70 POKE53265,27:POKE53272,21:POKE56576,3
80 GOTO 1
100 POKE53280,0:POKE53281,0
101 PRINT"[147][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]";
102 PRINT"[194][153] HARDCOPY VON GIGA-CAD AUF OKIMATE 20 [146][194]";
103 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
110 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]";
120 PRINT"[194] 1 - 4FACH 2 - 10FACH [146][194]";
130 PRINT"[173][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][189]";
135 PRINT" [194][158] BITTE TASTE DRUECKEN ![146][194] ";
140 PRINT" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189] ";
150 POKE198,0
155 GETA$:IFA$<>"1"ANDA$<>"2"THEN155
160 IFA$="1"THENBB=4
165 IFA$="2"THENBB=10
170 REM
200 PRINT""
210 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]";
220 PRINT"[194][129] BITTE FILENAMEN EINGEBEN [146][194]";
230 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
240 PRINT" [176][178][178][178][178][178][178][178][178][178][178][178][178][174] ";
250 PRINT" [194] [194]"
260 PRINT" [173][177][177][177][177][177][177][177][177][177][177][177][177][189] [149]";
270 C=0:C$="":L=18
290 POKE198,0
300 GETA$:IFA$=""THEN300
305 IFA$>="0"ANDA$<="Z"THEN350
310 IFA$=CHR$(20)THEN360
320 IFA$="[147]"THENC=0:C$="":PRINT"";:GOTO390
330 IFA$=CHR$(13)THEN400
350 IFC=12THEN290
355 C=C+1:C$=C$+A$:PRINT"";
356 FORT=0TOC:PRINT"";:NEXTT:PRINTA$;:GOTO290
360 IFC=0THEN290
365 C=C-1:C$=LEFT$(C$,LEN(C$)-1):POKE1024+L*40+C+14,32:GOTO290
390 PRINT" ";:GOTO290
400 RETURN